#!/bin/tcsh -f

#genpotato v 1.0.1 RW2004


if ($#argv == 0) then
	echo "Usage:	genpotato -x [PF along x] -y [PF along y] -z [PF along z] -u -v [u, v subdivisions]" > /dev/tty
echo "Using defaults..." > /dev/tty
endif

set x = .777
set y = .555
set z = .888

set u = 20
set v = 20

while ($#argv > 0)
        switch ($1)
        case -x:
                shift argv
                set x = $1
                breaksw
        case -y:
                shift argv
                set y = $1
                breaksw
        case -z:
                shift argv
                set z = $1
                breaksw
        case -u:
                shift argv
                set u = ($1)
                breaksw

        case -v:
                shift argv
                set v = ($1)
                breaksw


 default:
                echo bad option "'$1'" > /dev/tty
                echo "Usage:	genpotato -x [PF along x] -y [PF along y] -z [PF along z] -u -v [u, v subdivisions]" > /dev/tty
                exit 1      
        endsw
        shift argv
end


echo void brightfunc noise > potato.rad
echo "4 1-A1*.5*(1+(fnoise3(sin(Px),Py,Pz))^3) . -s .005" >> potato.rad
echo 0 >> potato.rad
echo 1 .8 >> potato.rad


echo noise plastic potato >> potato.rad
echo 0 >> potato.rad
echo 0 >> potato.rad
echo 5 .7 .4 .2 0 0 >> potato.rad
gensurf potato body "$x*"'cos(2*PI*t)*cos(2*PI*s)' "$y*"'cos(2*PI*t)*sin(2*PI*s)' "$z*"'(1-0.3*rand(t))*sin(2*PI*t)*(1-0.5*cos(PI*t))' $u $v -s  >> potato.rad

objview potato.rad

